home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / select5.fr_ / select5.fr
Text File  |  1995-07-04  |  5KB  |  152 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "INNER JOINer"
  5.    ClientHeight    =   3090
  6.    ClientLeft      =   1875
  7.    ClientTop       =   2220
  8.    ClientWidth     =   7575
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   0
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   3495
  19.    Left            =   1815
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    ScaleHeight     =   3090
  23.    ScaleWidth      =   7575
  24.    Top             =   1875
  25.    Width           =   7695
  26.    Begin VB.TextBox txtYearPublished 
  27.       DataField       =   "Year Published"
  28.       DataSource      =   "Data1"
  29.       BeginProperty Font 
  30.          name            =   "MS Sans Serif"
  31.          charset         =   0
  32.          weight          =   400
  33.          size            =   8.25
  34.          underline       =   0   'False
  35.          italic          =   0   'False
  36.          strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   285
  39.       Left            =   1860
  40.       TabIndex        =   3
  41.       Top             =   1800
  42.       Width           =   855
  43.    End
  44.    Begin VB.TextBox txtPublisher 
  45.       DataField       =   "Name"
  46.       DataSource      =   "Data1"
  47.       BeginProperty Font 
  48.          name            =   "MS Sans Serif"
  49.          charset         =   0
  50.          weight          =   400
  51.          size            =   8.25
  52.          underline       =   0   'False
  53.          italic          =   0   'False
  54.          strikethrough   =   0   'False
  55.       EndProperty
  56.       Height          =   285
  57.       Left            =   1860
  58.       TabIndex        =   2
  59.       Top             =   1260
  60.       Width           =   3435
  61.    End
  62.    Begin VB.TextBox txtTitle 
  63.       DataField       =   "Title"
  64.       DataSource      =   "Data1"
  65.       BeginProperty Font 
  66.          name            =   "MS Sans Serif"
  67.          charset         =   0
  68.          weight          =   400
  69.          size            =   8.25
  70.          underline       =   0   'False
  71.          italic          =   0   'False
  72.          strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   735
  75.       Left            =   1860
  76.       MultiLine       =   -1  'True
  77.       TabIndex        =   1
  78.       Top             =   300
  79.       Width           =   5175
  80.    End
  81.    Begin VB.CommandButton cmdClose 
  82.       Caption         =   "Close"
  83.       Default         =   -1  'True
  84.       Height          =   375
  85.       Left            =   3840
  86.       TabIndex        =   0
  87.       Top             =   2400
  88.       Width           =   1335
  89.    End
  90.    Begin VB.Data Data1 
  91.       Caption         =   "Data1"
  92.       Connect         =   "Access"
  93.       DatabaseName    =   "C:\VB\BIBLIO.MDB"
  94.       Exclusive       =   0   'False
  95.       BeginProperty Font 
  96.          name            =   "MS Sans Serif"
  97.          charset         =   0
  98.          weight          =   400
  99.          size            =   8.25
  100.          underline       =   0   'False
  101.          italic          =   0   'False
  102.          strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   300
  105.       Left            =   480
  106.       Options         =   0
  107.       ReadOnly        =   0   'False
  108.       RecordsetType   =   2  'Snapshot
  109.       RecordSource    =   $"SELECT5.frx":0000
  110.       Top             =   2460
  111.       Width           =   2115
  112.    End
  113.    Begin VB.Label Label3 
  114.       AutoSize        =   -1  'True
  115.       BackColor       =   &H00C0C0C0&
  116.       Caption         =   "Year Published:"
  117.       Height          =   195
  118.       Left            =   360
  119.       TabIndex        =   6
  120.       Top             =   1860
  121.       Width           =   1350
  122.    End
  123.    Begin VB.Label Label2 
  124.       AutoSize        =   -1  'True
  125.       BackColor       =   &H00C0C0C0&
  126.       Caption         =   "Publisher:"
  127.       Height          =   195
  128.       Left            =   840
  129.       TabIndex        =   5
  130.       Top             =   1260
  131.       Width           =   855
  132.    End
  133.    Begin VB.Label Label1 
  134.       AutoSize        =   -1  'True
  135.       BackColor       =   &H00C0C0C0&
  136.       Caption         =   "Title:"
  137.       Height          =   195
  138.       Left            =   1200
  139.       TabIndex        =   4
  140.       Top             =   300
  141.       Width           =   450
  142.    End
  143. End
  144. Attribute VB_Name = "Form1"
  145. Attribute VB_Creatable = False
  146. Attribute VB_Exposed = False
  147. Option Explicit
  148.     
  149. Private Sub cmdClose_Click()
  150.     End
  151. End Sub
  152.